home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / clipart / deletepic.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-05  |  1KB  |  71 lines
  1. /* DeletePic.rexx, 20.09.94 Jörg Richter */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. NL = D2C(10)
  6.  
  7. ADDRESS DataBase
  8.  
  9. Total
  10. IF result = 0 THEN
  11.   EXIT
  12.  
  13. Request "_Löschen|_Markierte|_Abbruch" "ACHTUNG! Gelöscht werden:" || NL || NL || "· das Orginalbild" || NL || "· das Vorschaubild" || NL || "· der Datensatz" || NL || NL || "Sind Sie sicher ?"
  14. res = RC
  15. IF res = 0 THEN
  16.   EXIT
  17.  
  18. IF res = 1 THEN DO
  19.  
  20.   GetData $F1
  21.   bild = result
  22.   GetData $F4
  23.   thumb = result
  24.  
  25.   ADDRESS COMMAND
  26.   'C:Delete > NIL: ' || bild
  27.   fehler1 = RC
  28.   'C:Delete > NIL: ' || thumb
  29.   fehler2 = RC
  30.  
  31.   ADDRESS DataBase
  32.  
  33.   IF fehler1 ~= 0 THEN
  34.     Request "_Ok" "Das Orginalbild konnte nicht gelöscht werden"
  35.   IF fehler2 ~= 0 THEN
  36.     Request "_Ok" "Das Vorschaubild konnte nicht gelöscht werden"
  37.  
  38.   Delete
  39.   END
  40.  
  41. ELSE DO
  42.   Display Off
  43.   LeftTotal
  44.   weiter = 0
  45.   DO WHILE weiter = 0
  46.     IsMarked
  47.     IF RC = 0 THEN DO
  48.       GetData $F1
  49.       bild = result
  50.       GetData $F4
  51.       thumb = result
  52.  
  53.       ADDRESS COMMAND
  54.       'C:Delete > NIL: ' || bild
  55.       'C:Delete > NIL: ' || thumb
  56.  
  57.       ADDRESS DataBase
  58.       Delete
  59.       END
  60.     ELSE DO
  61.       RightOne
  62.       weiter = RC
  63.       END
  64.   END
  65.   LeftTotal
  66.   Display On
  67.   Show
  68.  
  69. END
  70.  
  71.